Simplify `clean-mode'

* lisp/simple.el (clean-mode): Simplify the property exclusion.

diff --git a/lisp/simple.el b/lisp/simple.el
index f7e62e06ce1320515797502f2dd85e544cacb4e5..841983a3b602c9e272a379caff3659774a07015d 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -534,10 +534,7 @@ Other major modes are defined by comparison with this one."
     (dolist (overlay (overlays-in (point-min) (point-max)))
       (delete-overlay overlay))
     (set-text-properties (point-min) (point-max) nil)
-    (setq-local after-change-functions
-                (list
-                 (lambda (begin end _length)
-                   (set-text-properties begin end nil))))))
+    (setq-local yank-excluded-properties t)))
 
 ;; Special major modes to view specially formatted data rather than files.